home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbaseacc.arc / DATETEST.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  75 lines
  1. *DATETEST.CMD
  2. * THIS FILE VERIFIES THE BILL:DATE AND CHECK:DATE FOR THE RIGHT FORMAT
  3.  
  4. ERASE
  5. GO TOP
  6.  
  7. * The variable DATE brings in the NAME of the date field to be checked
  8. * from the command files where this is used.
  9. DO WHILE .NOT. EOF
  10.   @ 6,30 SAY 'VERIFYING '+DATE+' '
  11.  
  12.   IF *
  13.     SKIP
  14.   ELSE
  15.     IF &DATE <> '  '
  16.       STORE STR(#,5) TO FOUND
  17.       STORE T TO NODATE
  18.       DO WHILE NODATE
  19.         @ 8,30 SAY 'RECORD '+FOUND
  20.         @ 9,30 SAY ' '+$(&DATE,1,2)+'/'+$(&DATE,3,2)+'/'+$(&DATE,5,2)
  21.         ? CHR(7)
  22.         * The macro symbo is used to get the contents of the data field
  23.         * being checked fwithout creating a new variable.
  24.        IF VAL($(&Date,1,2)) > THISYEAR .OR. VAL($(&DATE,1,2)) < MINYEAR;
  25.           .OR. VAL($(&DATE,3,2)) <1 .OR. VAL($(&DATE,3,2)) >12;
  26.           .OR. VAL($(&DATE,5,2)) <1 .OR. VAL($(&DATE,5,2)) > 31
  27.          ?
  28.          ?
  29.          ?  '                                     DATE ERROR: Must be YYMMDD '
  30.          ACCEPT 'ENTER NEW DATE' TO TEMP
  31.          REPLACE &DATE WITH TEMP
  32.          ERASE
  33.        ELSE
  34.          STORE F TO NODATE
  35.          SKIP
  36.        ENDIF
  37.      ENDDO NODATE
  38.      RELEASE NODATE
  39.    ELSE
  40.      SKIP
  41.    ENDIF DATE IS NOT BLANK
  42.  
  43.    * DELAY TO ALLOW DATE BEING CHECKED TO BE READ (QUICKLY)
  44.    STORE 0 TO X
  45.    DO WHILE X<5
  46.      STORE X+1 TO X
  47.    ENDDO
  48.  
  49.   ENDIF DELETED OR POSTED
  50. ENDDO
  51. RELEASE ALL
  52. RETURN
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.